Cyber Strip Poker/Cyber Strip Poker.rar/IMAGE.img/poker28.dir/00075_Script_75

Text File | 1995-08-14 | 4KB | 172 lines

--CheckDHandFinal
on checkDHandFinal
  global nameout, namein
  global dhand,dV,dH,dH2
  global d1,d2,d3,d4,d5
  global ds1,ds2,ds3,ds4,ds5,dfeel
  put 0 into dfeel
  set dV=0
  set dH=0
  set dH2=0
  -- checkStraightFlush
  if (ds1=ds2) and (ds2=ds3) and (ds3=ds4) and (ds4=ds5) and (d2-d1=1) and ¼
  (d3-d2=1) and (d4-d3=1) and (d5-d4=1) then
    if d5=12 then
      put "I GOT A ROYAL FLUSH!!" into dhand
        set dfeel = 200
      set dV=8
      set dH=((d5*4)+ds5)
      set dH2=ds5
      exit
    else
      put "SEE MY STRAIGHT FLUSH, HON" into dhand
        set dfeel = 200
      set dV=8
      set dH=((d5*4)+ds5)
      set dH2=ds5
      exit
    end if
  end if
  -- checkFourOfAKind
  if (d1=d2) and (d2=d3) and (d3=d4) then
    put "I Got Four Of A Kind" into dhand
        set dfeel = 200
    set dV=7
    set dH=((d4*4))
    set dH2=ds4
    exit
  end if
  if (d2=d3) and (d3=d4) and (d4=d5) then
    put "Four Of A Kind For Me" into dhand
        set dfeel = 200
    set dV=7
    set dH=((d4*4))
    set dH2=ds5
    exit
  end if
  -- checkFullHouse
  if (d1=d2) and (d2=d3) and (d4=d5) then
    put "I Got A Full House, Baby" into dhand
        set dfeel = 200
    set dv=6
    set dh=((d3*4))
    set dH2=((d5*4)+ds3)
    exit
  end if
  if (d1=d2) and (d3=d4) and (d4=d5) then
    put "Oooh, I Filled A Full House" into dhand
        set dfeel = 200
    set dv=6
    set dh=((d3*4))
    set dH2=((d2*4)+ds5)
    exit
  end if
  -- checkFlush
  if (ds1=ds2) and (ds2=ds3) and (ds3=ds4) and (ds4=ds5) then
    put "Flush In My Hand" into dhand
        set dfeel = 150
    set dv=5
    set dh=((d5*4)+ds5)
    set dH2=ds5
    exit
  end if
  -- checkStraight
  if (d2-d1=1) and  (d3-d2=1) and (d4-d3=1) and (d5-d4=1) then
    put "Straight For Me" into dhand
     set dfeel = 150
    set dv=4
    set dh=((d5*4)+ds5)
    set dH2=ds5
    exit
  end if
  -- checkTriplets
  if (d1=d2) and (d2=d3) then
    put "I Got Three Of A Kind" into dhand
     set dfeel = 100
    set dv=3
    set dh=((d3*4))
    set dH2=ds5
    exit
  end if
  if (d2=d3) and (d3=d4) then
    put "Three Of A Kind For Me" into dhand
  set dfeel = 100
    set dv=3
    set dh=((d4*4))
    set dH2=ds5
    exit
  end if
  if (d3=d4) and (d4=d5) then
    put "I Show Three Of A Kind" into dhand
  set dfeel = 100
    set dv=3
    set dh=((d5*4))
    set dH2=ds2
    exit
  end if
  -- checkTwoPair
  if (d1=d2) and (d3=d4) then
    put "I Got Two Pair, Sweetie" into dhand
  set dfeel = 75
    set dv=2
    set dh=((d4*4))
    set dH2=ds5
    exit
  end if
  if (d1=d2) and (d4=d5) then
    put "Two Pair, Read 'em & Weep" into dhand
  set dfeel = 75
    set dv=2
    set dh=((d5*4))
    set dH2=ds3
    exit
  end if
  if (d2=d3) and (d4=d5) then
    put "I Show Two Pair" into dhand
  set dfeel = 75
    set dv=2
    set dh=((d5*4))
    set dH2=ds1
    exit
  end if
  -- checkOnePair
  if (d1=d2) then
    put "I Have One Pair" into dhand
  set dfeel = 20
    set dv=1
    set dh=((d2*4))
    set dH2=ds5
    exit
  end if
  if (d2=d3) then
    put "I Got One Pair" into dhand
  set dfeel = 30
    set dv=1
    set dh=((d3*4))
    set dH2=ds5
    exit
  end if
  if (d3=d4) then
    put "One Pair For Me" into dhand
  set dfeel =40
    set dv=1
    set dh=((d4*4))
    set dH2=ds5
    exit
  end if
  if (d4=d5) then
    put "One Pair In My Corner" into dhand
  set dfeel = 50
    set dv=1
    set dh=((d5*4))
    set dH2=ds3
    exit
  end if
  -- decideNoPair
  put d5 into namein
namer
  put "I Got Nothing... "&nameout&" For Me" into dhand
  set dfeel = 5
  set dv=0
  set dh=((d5*4))
  set dH2=((d4*4))